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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume, A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, pode- 
rão ser comprados, a preços atualizados, da seguinte forma: 1. PESSOAL 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
Mem de Sá, 191/193, Centro. 2. POR CARTA — Poderão ser solicitados exem- 
plares atrasados também por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Publicações — Números Atrasados — Estrada Velha 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Não envie pa- 
gamento antecipado. O atendimento será feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, deverá ser efetuado ao se retirar a en- 
comenda na agência do Correio. 3. POR TELEX — Utilize o nº (011) 33 670 
DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Publica- 
ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: A pós seis meses do encerramento da coleção, os pedidos serão aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, além 
do número da edição. 


COLABORE CONOSCO 


Encaminhe seus comentários, críticas, sugestões ou reclamações 
ao Serviço de Atendimento ao Leitor — Caixa Postal 9442, 
São Paulo — SP. 
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LE O INÍCIO DA PARTIDA 
E COMO DAR ORDENS À TROPA 
* MOVIMENTO E DIREÇÃO 
mm STATUS 
E OCOMPUTADOR COMO JOGADOR 


Mobilize seu exército para a guerra, 
definindo uma estratégia de 

ação e disciplinando a tropa. Esses 
requisitos são fundamentais 

para o exercício da arte de comandar. 


Agora que as rotinas de posiciona- 
mento e movimentação das tropas já fo- 
ram incorporadas ao programa, é pre- 
ciso começar a dar ordens ao exército. 

Diversos fatores tendem a influenciar 
o comportamento de cada unidade no 
campo de batalha. Os mais significati- 
vos dentre eles são os seguintes: 


- Ultima ordem recebida pela unidade. 

- Direção em que a unidade se move. 

- Tipo de munição utilizado. 

- Armaduras e demais equipamentos de 
que dispõe a unidade. 

- Poder destrutivo inicial. 

- Poder destrutivo no momento em que 
a batalha é travada. 

- Moral da tropa. 

- Posição estratégica assumida pela uni- 
dade. 

- Terreno em que a batalha tem lugar. 


Esses fatores correspondem aos no- 
ve elementos da matriz da tropa, que di- 
mensionamos no artigo anterior. O ter- 
| reno e a posição já foram definidos por 

E WU ocasião da rotina de movimento. Neste 
A artigo atribuiremos valores aos elemen- 
EE tos restantes. 
ul Ao começar o jogo, os valores iniciais 
' | li ” | adequados são colocados na matriz da 
NA e bis Ih tropa. Os tipos de armadura e de muni- 
| A * ção serão sempre os mesmos. Da mes- 
AA | ma forma, o moral será também quase 
av, [araras FAR AV sempre o mesmo, embora possa sofrer 
hi Co - algumas variações — os camponeses 
provavelmente nunca estarão muito dis- 
postos a lutar (afinal, a guerra não é de- 
les, mas dos barões feudais), enquanto 
os cavaleiros, para manter as aparên- 
cias, nunca agirão covardemente. A ca- 
pacidade destrutiva poderá ser muito di- 
ferente de uma partida para a outra. As 
ordens e as direções iniciais são deter- 
minadas pelo programa: todos começam 
parados (“ALTO”), de modo que não | 
existe uma direção definida. 1044 


1 
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As rotinas que se seguem acertam o 
valor de diversas variáveis. Os dados são 
obtidos de linhas DATA, ou através de 
alguns cálculos, ou das duas maneiras. 
Quando o programa estiver completo e 
em funcionamento, poderemos modifi- 
car esses dados de acordo com nossas 
preferências. 





ABANDONE O QUARTEL-GENERAL 


Estas rotinas acertam os valores ini- 
ciais dos elementos que ainda não foram 
definidos: 


REM Inicializacao 

LET vc=0: LET de=0 

REM 

PAPER 7 

INK O 

CLS 

DIM t5(B,12): DIM oS(5,12) 
DIM m$(5,12): 
DIM r$(4,12): 


190 
200 
310 
320 
330 
340 
360 
* DIM w$(5,9): 
DIM aS(4,12): 


E UEL 


Ni% 
Fi À Ni = à 


em k 4 
|) 
MÃE 
me 
im 
+ 


EB 

E: 

| 
ERAS 
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4] 


" 
Rs 
L > 

É 
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DIM c(8) 

380 FOR 1=1l TO 5: READ oS(i), 

wS(1i),mS(1): NEXT à 

390 FOR i=il TO B: READ tsli): 

NEXT 1 

400 FOR 1=1 TO 4: READ asi), 

rS(1): NEXT à 


410 LET uS=CHRS 148+CHRS 149+ 
CHRS 150+CHRS 1I51I+CHRS 1514 


CHAS 152+CHAS 152: LET uS=uS+ 
us 

415 LET x5$="Nn8Ss” 

420 RETURN 

2760 DATA "fogo”,"nada”, covard 


e","alto”,"arco","baixo” 
2770 DATA "“marche”,"espada”, di 
sposto”","status","machado","bra 
vo” 

2Z'r80 DATA “retirada”,"lanca”,”v 
alente” 

2790 DATA "cavaleiros”","sarqgent 
os","lanceiros”,"arqueiros”,”ar 
queiros","“camponeses","campones 
es” 

2800 DATA "nada","campo","qgibao 
",“vila”","malha metalica”,"£flor 
esta","chapa metalica”,"montanh 
a” 

2810 DATA 5,4,3,5,3,3,4,43, 
DR AU PP AP é RR 








190 REM INÍCIO 

200 VC=0:DE=0 

340 CLS 

360 DIM T5S(8),05(5),WS(5),M5(5) 
[AS (4) ,RS(4) 

380 FOR J=1 TO 5:READ 0S(J),W5( 
J).MS(J) NEXT J 

390 FOR J=1 TO B:READ TS(J):NEX 
TJ 

400 FOR J=1 TO 4:READ AS (J),HS( 
J):NEXT J 

415 X5$="NnSs" 

420 RETURN 

2760 DATA FOGO, NADA, COVARDE, ALT 
O, ARCO, BAIXO 

2770 DATA MARCHE, ESPADA, DISPOST 
O, STATUS, MACHADO, BRAVO 

2780 DATA RETIRADA, LANCA, VALENT 
E 

2790 DATA CAVALEIROS, SARGENTOS, 
LANCEIROS, LANCEIROS, ARQUEIROS, A 
ARQUEIROS, CAMPONESES, CAMPONESES 

2800 DATA NADA, CAMPO, GIBÃO, VILA 
| MALHA METÁLICA, FLORESTA, PLACA 

METÁLICA, MONTANHA 

2810 DATA 5,4,3,5,3,3,4,3,2,3,3 
ID e dE ARA RPE qe RD A E DR jp O TR 












190 REM INICIO 

200 CL = O:VUC = O:DE = 0 

340  HGAZ2 POKE - 16301,0: GO 
SUB 2540 


360 DIM TS(8B),05(5),WS(5),MS(S 

) AS (4) ,A$(4) 

380 FORT =1 TOS: READ OS(T) 

NS(I).MSCI): NEXT 1 

390 FOR I = 1 'TOB: READ TS(I) 
NEXT I 

400 FOR I = 1 TO4: READ ASIL)] 

AS(I): NEXT 1 

410 US = "4566/7//88' 

415 X5S = "NNSS” 

420 RETURN 


2760 DATA FOGO,NADA, COVARDE, À 
LTO, ARCO, BAIXO, MARCHE, ESPADA, DI 
SPOSTO 

2780 DATA STATUS,MACHADO, BRAV 


O, RETIRADA, LANCA, VALENTE 

2790 DATA CAVALETROS, SARGENTO 
S,LANCEIROS, LANCE IROS, ARQUEIROS 
| ARQUETROS, CAMPONESES, CAMPONESE 
S 

2800 DATA NADA, CAMPO,GIBAO,VI 
LA,MALHA METALICA, FLORESTA, CHAP 
A METALICA,MONTANHA 
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2810 DATA D04,3 
3,3, L,2,2,1,2,3,2, 


La) = 


Os usuários do micro TK-2000 devem 
modificar as seguintes linhas do progra- 
ma destinado ao Apple, 


340  HGRZ GOSUB 2540 
310 REM 

330 COLOR 4,7 

340 PCLS 


360 DIM TS(8),05(5).WS(5),MS$(5) 
AS(4),A$(4) 

380 FOR J=1 TO 5:READ OS(J),WS( 
J),MS(J) NEXT J 

390 FOR J=1 TO B:READ TS(J):NEX 
TJ 

400 FOR J=l TO 4:READ AS(J),RSÍ 
J) :NEXT 

415 XS="NnSs” 

420 RETURN 

2760 DATA FOGO, NADA, COVARDE, ALT 
O, ARCO, BAIXO 

2770 DATA MARCHE, ESPADA, DISPOST 
O, STATUS, MACHADO, BRAVO 

2780 DATA RETIRADA, LANCA, VALENT 
E 

2790 DATA CAVALEIROS, SARGENTOS, 
LANCEIROS, LANCEIROS, ARQUEIROS, A 
ARQUEIROS, CAMPONESES, CAMPONESES 
2800 DATA NADA, CAMPO, GIBAO, VILA 
| MALHA METALICA, FLORESTA, CHAPA 
METALICA, MONTANHA 
2810 DATA 5,4,3,5,3 
pledi2oL, 2,3), 2, Sr És 


3, 8,3,2,498 
0,3,1,0 

Os valores iniciais são obtidos com 
READ das linhas DATA, juntamente 
com as palavras equivalentes aos valo- 
res numéricos colocados na matriz. As 
palavras serão usadas na janela de tex- 
to para que a batalha se desenrole de 


maneira clara para o jogador. 


DÊ AS ORDENS 





O jogo consiste basicamente em dar 
ordens às unidades — sem isto não ha- 
verá combate e, consequentemente, vi- 
tória ou derrota. 

Existem quatro ordens básicas no jo- 
go Capa e Espada: “Fogo'', “Alto”, 
“Marche” e “Status”. A ordem de ati- 
rar se aplica somente aos arqueiros, que 
obedecerão mesmo que não haja unida- 
des inimigas nas redondezas. 

Dar ordens às tropas tem suas des- 
vantagens: quanto mais real quisermos 
que seja um jogo de guerra, mais com- 
plicadas serão essas ordens. Inversamen- 
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te, quanto mais simples for o jogo, mais 
fácil será o processo de comando. As- 
sim, um jogo muito realista será mais di- 
fícil de jogar; e, se quisermos produzir 
um jogo fácil de jogar, teremos que sa- 
crificar os detalhes. Depois de progra- 
mar alguns jogos desse tipo, você será 
capaz de criar programas mais com- 
plexos. 





ROTINA DE COMANDO 


A rotina de comando de Capa e Es- 
pada seleciona as unidades de cada jo- 
gador, uma a uma, para que estes pos- 
sam dar as ordens. A unidade em ques- 
tão tem sua cor modificada no mapa 
(em alguns computadores a mudança é 
sutil). Uma mensagem solicitando as no- 
vas ordens para essa unidade (indicada 
por seu número) é mostrada na janela 
de texto, Se o jogador não quiser alte- 
rar as ordens, basta pressionar a tecla 
N. Se S for pressionada, será mostrado 
um menu com as ordens possíveis. 

Caso seja selecionada a ordem de ati- 
rar (FOGO) e a unidade não seja cons- 
tituída de arqueiros, uma nova ordem 
será escolhida. O comando ALTO faz 
a unidade permanecer onde está e MAR- 
CHE exige a definição da direção, indi- 
cada pelas iniciais de norte, sul, leste e 
oeste. O programa não faz nenhum tes- 
te para verificar se a direção é válida; 
portanto, preste atenção ao mapa. 


COMO SELECIONAR UMA UNIDADE 





Quando chega a vez do jogador, a 
primeira unidade é destacada por meio 
da mudança de cor; isso se repete com 
cada uma das outras sete unidades. O 
símbolo que muda de cor é a unidade 
que o jogador deve considerar: as or- 
dens devem ou não ser modificadas? 
Quando a unidade é destacada, uma 
mensagem surge na janela de texto, 
mostrando a última ordem dada. 


1380 REM unidade 
1390 GOSUB 2540 


1400 INK 0 

1410 PRINT FLASH 1;AT T(â,8B),T 
(1,9) ;uS(i) 

1420 PRINT AT 17,0;"Unidade num 
ero “;3/7 FJESAL)O si 


1430 PRINT AT 18,0;"Ultima orde 

n:"sostT(d,d))1€ * 
1440 IF T(i,1)=3 THEN 
18,28;1S(T(1,2)) 
1450 REM Loop 

1460 PRINT AT 19,0;"Deseja muda 


PRINT AT 
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ordens (5/N)?" 

LET v=0: LET vy5S=INKEYS 
IF v$="" THEN "“OTO 1465 
FOR k=1 TO 4 

IF xS(k)=vy5 THEN 
NEXT k 

IF vy=0 THEN GOTO 1450 
RETURN 


r as 
1465 
1466 
1470 
1475 
1480 
1490 
1500 


al 


1380 


LET y=k 


REM UNIDADE 

1390 GOSUB 2540 

1410 LOCATE T(I,9).T(1I,8):PRINT 
CHRS (U(1)+48); 

1420 LOCATE 0,18:PRINT "UNIDADE 
"1,5": "sTS(I)o = 

1430 LOCATE 0,19:PRINT "ULTIMA 
ORDEM:";OS(T(I,1)); 

1440 IF T(1I,1)=3 THEN PRINT IS( 

T(Z,2)) 

1460 LOCATE 0,20:PRINT "QUER MU 

DAR AS ORDENS (S/N)?” 


1465 YW=D: Y5S=INKEYS 

1466 IF Y5="" THEN 1465 

1470 YW=INSTR(1,XS,Y9S) 

1490 IF YW=0 THEN 1460 

1500 RETURN 

1380 REM UNIDADE 

1390  GOSUB 2540 

1410 X = T(1,9):Y = T(1,8):N = 
VAL ( MIDS (US,I - (I>8B)* 6 
:1)) + (1 > 8) * 5: GOSUB 20000 
1420 VTAB 21: PRINT "UNIDADE N 
UMERO “;I;” “:TS(T) 

1430 PRINT "ULTIMA ORDEM: ";05 
CELLS DA 23 

1440 IF T(1,1) = 3 THEN PRINT 

MIDS (IS,T(1I,2),1): GOTO 1460 

1450 PRINT 

1460 PRINT "DESEJA MUDAR AS OR 

DENS (8S/N)?”": GOSUB 30000 

1465 YW = O: GET YS 

1470 FOR K = 1 TO dad 

1475 IF MIDS (X$S,K,1) = T5 TH 
EN YW = K 

1480 NEXT K 

1490 IF YW = O THEN 1450 

1500 RETURN 

20000 X = X*2- 2:N=N*ãZ: 


FOR WU = O TO 1:X = X+W:N=N 

+ W: FOR V = O TO 7 

20010 POKE T+ (T-8*(7M2>7 
)=-8*%(7>25))*126%+40*% 

(T1>7 +40*(72>215)+HÃX+I4 
024 * VU, PEEK (EE + N * 8 + V) 

* 128 

20020 NEXT V,W: RETURN 


Faça a seguinte modificação no pro- 
grama do Apple: 


1460 PRINT 
DENS (8/N)?” 


"DESEJA MUDAR AS OR 





1380 REM UNIDADE 

1390 GOSUB 2540 

1400 COLOR 4 

1410 DRAW"BM"+STRS(T(1I,9)*8)+", 
"+STRS(T(1,8)*8) : UU=VAL (MIDS (US 
(/1,1)) : AS=UCS (UU) :GOSUB 3030 
1420 DRAW" BMO, 144" :A$S="UNIDADE” 
+8R8(1)€” C+TSMI)+o ":G05 
UB 3190 

1430 DRAW"BMO, 152" :AS="ORDENS 5 
ÃO PARA "+OS(T(I,1))+” “:GOSU 
B 3190 

1440 IF T(1I,1)=3 THEN DRAW "BMI] 
60,152" :AS=MIDS(IS,T(1I,2),1):GO0 
SUB 3190 

1450 REM 

1460 DRAW"BMO, 160" :AS="DESEJA M 
UDAR AS ORDENS (5/N)”:GOSUB 319 
O 
1465 
1466 
1470 
1490 


Y=0:YS=INKEYS 

IF Y$="" THEN 1465 
Y=INSTR(1,X3,75) 

IF Y=0 THEN 1450 

1500 RETURN 

3000 X9=PEEK (200) :Y9=PEEK (202): 
LINE (X9,79)- (X9+7, Y9+7), PRESET, 
BF 

3010 POKE 200,X9:POKE 202,Y9:DR 
AW AS 

3020 RETURN 

3030 X9=PEEK (200) : Y9=PEEK (202): 
C9=PEEK (178) :COLOR Z:LINE(X9,Y9 
)= (X9+7,79+7), PSET,BF 

3040 POKE 178,C9:GOTO 3010 

3050 REM DADOS PARA LERAS E DIG 
ITOS 

3060 DATA BR4, BDDSRUINRZUZERFND 
5BR4BU, DOR3EUHEUHBAS, NASD6R5SBRS3 
BU6, NRID6R3EU4BUBR4, NR5D3NRIDIR 
SBRIBU6, NE5D3INRIDIBABBUS, NR5DOR 
SUZBU4BR3 

3070 DATA ND6D3RSDIU6BARI3, R5LZD6 
L3R5BRIBU6, BDSRFREUSLZBRO, NDODS 
R3FD2BU4UZBR4, DORSBARIBUS, NDODRS 
NLSUBR3, ND6DR2DIKRID2ZUCBRA 

3080 DATA D6RSU6NLSBR3, DOU3RSUS 
NL5BR3, D6UR3FRBUZU4ANLSBRI, DOUZR 
3FDUBUZNL2U3NL4BR4, NRSD3R5D3NLS 
BU6BR3,R5L2ND6BRS, DERSUGBHI 
3090 DATA D4RFDRUEU4BR4, D6URSDU 
6BAR3,D2RFGND2ZERENDZHEUZBRA, D2ZRF 
DIRUJEUZBRA4, RAD2GLGD2R4BUGBR3 
3100 DATA BR3LGD4AFREU4BR4BU, BRZ 
DNL2D5L2R5BU6BR3, BDRERFDGL 2D3R4 
BUSBR3, BDRERFDGFDGLHLBUSBR8, D4R 
SUD3IBUGBR3, NR5SD2R3FD2CLHLBUSBAB 
|, BDBBRSLHLGD2NA2D2FREUBU4 BR4 
3110 DATA R5D2LGLGD2BR7BU6, BRIL 
GDFGDFREUHEUBUBR4, BRILGDFR2DZ2GL 
HLBUZBR4UZBUBR4 

3120 REM MATRIZ DE CARACTERES 
3130 DIM LES(26) 

3140 FOR K9=0 TO 26:READ LES(K9 
) : NEXT 

3150 FOR K9=0 TO 9:READ NUS (K9) 
:NEXT 

3170 RETURN 

3180 REM ROTINA PARA IMPRIMIR A 
E 


3190 FOR K9=1 TO LEN(AS) 

3200 BS$=MIDS (AS,K9,1) 

3210 IF B$>="0" AND B5S<="9" THE 
N DRAW NUS (VAL (B$)) :GOTO 3240 
3220 IF B$=" *" THEN N9=0 ELSE N 
9=ASC(B$S)-64 

3230 DRAW LES (N9) 

3240 NEXT 

3250 RETURN 


As ordens para a unidade destacada 
são mostradas na janela de texto. O jo- 
gador é indagado, então, sobre se dese- 
ja mudar as ordens. 

O micro TRS-Color possui linhas 
adicionais (3000 a 3250) destinadas a de- 
senhar as letras e os números na tela de 
alta resolução. 


A ARTE DE COMANDAR 





Esta rotina mostra um menu com as 
ordens possíveis: 


1900 
1910 
1920 


REM acao 

GOSUB 2540 

PRINT AT 18,0;"0Opcoes :" 
1930 FOR 3=1 TO 4 

1940 PRINT AT 17+5,8:058(3,1);"- 
",058(3) 

1950 NEXT 9 

1960 REM loop 

1962 LET a=0 

1965 LET fS="FfAaMmSs” 

1970 LET gS=INKEYS: IF q5="" TH 
EN GOTO 1970 

1975 FOR k=1 TO B 
1980 1F f£S(k)=q93 THEN 
T ((k+1)/2) 


LET a=IN 


1985 NEXT k 

1990 IF a<=0 THEN GOTO 1960 
2000 IF 1<>6 AND 1<>5 AND a=l T 
HEN  GOSUB 2540: PRINT AT 18,8; 
"Nao ha arcos”: GOSUB 2410: GOT 
O 1910 


2010 IF a=4 THEN GOSUB 2440: R 
ETURN 

2020 LET T(i,1l)=a 

2030 IF a=3 THEN GOSUB 2050 
2040 RETURN 


DM 


1900 REM AÇÃO 
1910 GOSUB 2540 
1920 LOCATE 0,19:PRINT "OPÇÕES: 


1930 FOR J=1 TO 4 

1940 LOCATE 8,18+J:PRINT LEFTS( 
0$,2):;"-";05(J) 

1950 NEXT J 

1960 A=0 

1965 FS="FHMS' 

1970 GS=INKEYS:IF G$="" THEN 19 
70 

1980 A=INSTR(1,F3,63) 





| | 
E -. 


1990 IF A<=0 THEN 1960 (3) 4” = "sOStD)j: IP J<LSAT 
2000 IF I<>6 AND I<>5 AND A=1 T BEN PRINT * | 
HEN GOSUB 2540:LOCATE 8,19:PRIN 1950 NEXT J: GOSUB 30000 

T "SEM ARCOS”:GOSUB 2410:GoTo 1 1960 ES = "FFAAMMSS Modificações para o TK-2000: 
910 1970 GET GS 

2010 IF A=4 THEN GOSUB 2440:RET 1973 À = 0 | 1950 NEXT J 

URN Bda BRR A SON O ia 2000 IFI< >6ANDI< DS 
2030 IF A=3 THEN GOSUB 2050 EN A = INT OI((K+1)/ 2) NT "NAO HA ARCOS”: GOSUB 2410: 


2040 RETURN 1985 NEXT K | GOTO 1910 
1990 IF A < = O THEN JI970 


FE 2000 IFI< >6ANDI< >S y 
[é] AND À = 1 THEN GOSUB 2540: PRI [EN 
NT "NAO HA ARCOS”: GOSUB 30000: 
REM ACAO GOSUB 2410: GOTO 1910 REM SELECIONA ACAO 
GOSUB 2540 2010 IF A = 4 THEN GOSUB 2440 GOSUB 2540 
UTAB 21: PRINT "OPCOES: ” |: RETURN DRAW" BMO, 152" :A$="OPCOES 
2020 T(I,1) = À :GOSUB 3190 
FOR J = 1 TO4 2030 IF A = 3 THEN GOSUB 2050 FOR J=1 TO 4 
HTAB 10: PRINT JLEFTS$ (OS 2040 RETURN DRAW"BM104,"+STRS (144+J*8) 





41 PROGRAMAÇÃO DEJOGOS 41 


= - —s = —— =D] 22" O E "EPE = E e m—— 





“AS=LEFTS(08(J),1)+” "+03(J):6 


OSUB 3190 

1950 NEXT J S 
1960 REM 2050 REM DIREÇÃO 2440 REM status Ê 
1962 A=0 2055 GOSUB 2540 2450 GOSUB 2540 “ 
1965 FS$="FAMS” 2060 LOCATE 0,18:PRINT "PARA ON 2470 PRINT AT 18,0;"Arma: ";w5( a 
1970 GS=INKEYS:IG 68="”" THEN 19 DE (NSLO)?” T(1,3)) a 
70 2065 G=0 2480 PRINT AT 18,15;"Armadura: E 
1980 A=INSTR(1,FS,G5) 2070 REM ";aS/T(1,4)) E 
1990 IF A<=0 THEN 1960 2075 REM 2490 PRINT AT 19,0:"Poder: ";T( 
2000 IF I<>6 AND I<>5 AND A=l T 2080 GS=INKEYS:IF G8="" THEN 20 1,7) 

HEN COSUB 2540:DRAW"BM64,152":A 80 25800 PRINT AT 19,14:"Moral: ";m 
$="NAO HA ARCOS" :GOSUB 3190:G0S 2100 G=INSTR(1,18,68) S(T(i,5)) 

UB 2410:GOTO 1910 2110 IF G=0 THEN 2070 2510 PRINT AT 20,0;"Terreno: "; 
2010 IF A=4 THEN GOSUB 2440:RET 2120 T(I,2)=G rS(m(T(1,8),T(1,9))+1) 

URN 2130 RETURN 2520 GOSUB 2410 

2020 T(I,I)J=A 2530 RETURN 

2030 IF A=3 THEN GOSUB 2050 T 2560 PRINT AT 17,0;"UNIDADE ";i | 
2040 RETURN | ” Tipo: ":tS(i) 


As linhas 1920 a 1950 mostram as op- 2050 REM DIRECAO 
ções na tela. As linhas 1965 a 1985 ob- 2055 cosuB 2540 





























têm a resposta do teclado e colocam o 2060 VTAB 21: PRINT "PARA ONDE | 
número equivalente à ordem seleciona- | (NSLO)?” Ro | 
da na variável A: O é “fogo”, 1 é “al. 2065 GOSUB 30000 

to”, 2 é ''marche'” e 3 é “status”. 2070 6 = 0 


E 2080 GET GS 
? ve 
A ordem de atirar só será possível por 2090 IF ASC (65) > 90 THEN GS 


meio de uma rotina do próximo artigo “mas ( ASC (65) - 32) 
da série. As opções de marchar e desta- .995s FORK=I1TOd 
tus serão dadas pelas próximas rotinas. 5100 IF MIDS (IS,K,1) = G$ TH 
A ordem “ALTO” não precisa de uma enc =x«k 
rotina especial, já que nada acontece 2105 NEXT K 
com a unidade. O elemento da matriz 2110 IF G = O THEN 2070 
da tropa que indica a direção em que se 2120 T(1,2) = G 
movimentava a unidade não deve ser 2130 RETURN 
modificado porque é utilizado na roti- 
na de combate. 
A linha 2020 coloca o valor da variá- 
vel A na matriz da tropa; o número da Modificações a fazer no programa: 
ordem corresponde ao primeiro elemen- 


to da matriz. 2065 REM 





UMA NOVA DIREÇÃO 


2050 REM DIREÇÃO 


Se o jogador ordenar a uma unidade 2055 GOSUB 2540 
que se movimente, o programa solicita- 2060 DRAW"BMO,144":AS="QUAL A D 

















rá uma direção. Esta rotina cuida das pai NS LO :GosuB 3l 
opções possíveis: 2065 G=0 
2070 REM 
2080 GS=INKEYS:IF G8="" THEN 20 
BO 
2100 G=INSTR(1,1$,65) 
2050 REM Direcao 2110 IF G<=0 THEN 2070 
2055 GOSUB 2540 2120 T(I,2)=G 
2060 PRINT AT 17,0;"Para onde ( 2130 RETURN 
NSLO) 7?” 
2065 LET 9=0 A rotina verifica se a letra teclada pe- 
2070 REM loop Po lo jogador é N, S, L ou O. Se for uma 
apa sai tia i id IF 9$="" TH delas, a linha 2120 colocará o número 
E do movimento equivalente no segundo 


2090 IF CODE (95)290 TREN LET 
qS=CHRS (CODE (93)-32) 
2095 FOR k=l TO 4 


2105 NEXT k 

2110 IF 9g=0 THEN GOTO 2070 : , 

2120 LET T(i,2)=q Para conferir a situação de uma uni- 
me 2130 RETURN dade, o jogador terá esta rotina. 


elemento da matriz da tropa. 


2450 GOSUB 2540 

2460 LOCATE 0,18:PRINT 
"“41,ºTIPO:";TSC(I) 

2470 LOCATE 0,19: PRINT 
WS (T(I,3)) 

2480 LOCATE 15,19: PRINT 
RA:T;AS(T(I,4)) 

2490 LOCATE 0,20: PRINT 
T(I,4) 

2500 LOCATE 15,20:PRINT 
"“IMS(T(I,5)) 

2510 LOCATE 0,20: PRINT "POSIÇÃO 
":RS(MITII,B),T(I,9))+1) 

2520 GOSUB 2410 

2530 RETURN 


[é 
2440 


2450 
246 


"UNIDADE 
"ARMA :”; 

" ARMADU 
"PODER: * 


"MORAL : 


REM STATUS 
GOSUB 2540 
VTAB 21: PRINT 
"TOS a) 
PRINT "ARMA: ";WS(T(I,5)) 


"UNIDADE " 


dj." TIPO: 
2470 


| É ] 


2480 PRINT "ARMADURA: ";AS(T(I 
E eo 
2490 PRINT "PODER: ";T(1I,7);”. 


2500 "MOBAL: ";MS(T(I,5) 
) pos 

2510 PRINT 
I,B),T(1,9)) 
2520  GOSUB 
2530 RETURN 


PRINT 


"TERRENO: 
+ 1) 
2410 


"1RS(MCT( 


[O 
Modificações para o TK-2000: 


2545 FOR ER = 160 Tº 


O 191 
2546  HPLOT 0O,ER TO 2/9,ER: NEX 
y 


2440 REM STATUS 


HCOLOR= O: 


2450 GOSUB 2540 

2460 DRAW"BMO, 144" :AS="UNIDADE” 
+STR$(1)+” TIPO "+T3S(I):GOSU 
B 3190 

2470 DRAW"BMO, 152" :A$=" ARMA 
S(T(1I,3)):GOSUB 3190 

2480 DRAW" BM120,152”":AS="ARMADU 
RA "+AS(T(I,4)) :GOSUB 3190 

2490 DRAW"BMO, 160" :A$=" PODER "+ 
SRS(T(1I,7)):GOSUB 3190 

2500 DRAW"BM120,160":AS="MORAL 

"+MS(T(1I,5)) :GOSUB 3190 

2510 DRAW"BMO, 168” :AS$=" TERRENO 

"+RS(M(T(I,B).T(1I,9))+1) :GOSUB 

3190 

2520 GOSUB 2410 

2530 RETURN 


"+ 


Todos os elementos pertencentes à 
matriz da tropa (ou as palavras corres- 
pondentes) que se referem à unidade que 
o jogador está querendo conferir são 
mostrados na tela. 

















O EFEITO DAS ORDENS 


Esta rotina informa ao jogador quan- 
do cada unidade obedece às ordens. 


1020 REM cumpre 

1030 FOR i=1 TO 16 

1032 IF t(i,1)>3 THEN GOTO 114 
0 

1035 INK O: GOSUB 2540: PRINT A 
T 17,0;"Unidade ";1;" entra em 

acao |!” 

1040 LET cl=l: IF 1>8 THEN LET 
cl=2: INK cl 

1050 IF T(i,1)=3 THEN LET besl: 
GOSUB 1160 

ão IF T(1,1)=2 THEN GOTO 114 
Ff IF T(i,1)=1 THEN LET ah=i 


* GOSUB 1710: GOTO 1140 

1070 FOR £=-1 TO 1 

1080 FOR q=-1 TO 1 

1090 FOR e=1 TO 16 

1100 IF (T(i,8B)+f=T(e,8)) AND ( 

T(i,9)+g=T(e,9)) AND T(e,1)<>5 

THEN LET us=i: LET th=e: GOSUB 
1510 

1110 

11%0 

1130 

1140 
1150 


ny 


1020 
1030 


NEXT e 
NEXT q 
NEXT É 
NEXT à 
RETURN 


REM CUMPRE 

FOR I=1 TO 16 

1032 IF T(1I,1)>3 THEN 1140 

1035 GOSUB 2540:LOCATE 0,18B:PRI 

NT "UNIDADE"; I;"OBEDECE” 

1040 IF T(1I,1)>3 THEN 1140 

1050 IF T(I,1)=3 THEN B=T:GOSUB 
1160 

1055 IF T(1I,1)=2 

1060 IF T(1I,1)=1 

B 1710:GoTo 1140 

1070 FOR F=-1 TO 1 

1080 FOR G=-1 TO 1 

1090 FOR E=1l TO 16 

1100 IF (T(I,8)+F=T(E,8B)) AND(T 
(1,9)+G=T(E,9)) AND T(E,1)<>25 T 

HEN US=1:TH=E:GOSUB 1510 

1110 NEXT E 

1120 NEXT G 

1130 NEXT F 

1140 NEXT 1 

1150 RETURN 


[é] 


1020 
1030 
1032 
1035 
TA 


THEN 1140 
THEN SH=T:GOSU 


REM CUMPRE 

FOR I = 1 TO 16 

IF T(I,1) > 3 THEN 1140 
GOSUB 2540: VTAB 21: PRIN 
UNIDADE ";1;" OBEDECE”": GO 


SUB 30000 

1040 LET CL = O: IF I > B&B THEN 
CL =5 

1050 IF T(I,1) = 3 THEN B = I: 
GOSUB 1160 

1055 IF T(1I,1) = 2 THEN 1140 
1060 IF T(I,1) = 1 THEN SH = 1 
* GOSUB 1710: GOTO 1140 

1070 FOR F = -12 TO 

1080 FOR G= - 1 T01 


1090 FOR E = 1 TO 16 

1100 IF (T(1,8) + EF = T(E,8)) 
AND (T(1I,9) + G = T(E,9)) AND T 
(E,1) < > 5 THEN US = I:TH = E 
: GOSUB 1510 

1110 NEXT E 

1120 NEXT G 

1130 NEXT F 

1140 NEXT I 

1150 RETURN 


LS] 


Modificações necessárias: 


1035 GOSUB 2540: VTAB 21: PRIN 


T "A UNIDADE ";1;" OBEDECE” 


1020 REM CUMPRE 

1030 FOR I=1 TO 16 

1032 IF T(1I,1)>3 THEN 1140 

1935 COLOR 4:GOSUB 2540:DRAW "B 

MO, 144" :AS="UNIDADE" +STARS (I)+"E 

NTRA EM ACAO !":GOSUB 3190 

1040 CL=3:IF 1I>8 THEN CL=4:COLO 

R CL 

1050 IF T(1,1)=3 
1160 

1055 IF T(1I,1)=2 
1060 IF T(I,1)=1 

B 1710:GOTO 1140 
1070 FOR F=-1 TO 1 

1080 FOR G=-1 TO 1 

1090 FOR E=l TO 16 

1100 IF (T(I,8)+F=T(E,8)) AND ( 

T(1I,9)+G=T(E,9)) AND T(E,1)<25 

THEN US=1:TH=E:GOSUB 1510 

1110 NEXT E,G,F 

1140 NEXT 1 

1150 RETURN 


THEN B=1:GOSUB 
THEN 1140 
THEN SH=I:GOSU 


O funcionamento dessa rotina é par- 
ticularmente simples. Ela toma cada 
uma das unidades e executa as ordens. 
Só haverá combate se uma das unida- 
des se mover (a que se moveu por últi- 
mo é considerada atacante). Quando 
uma ordem de “alto” é detectada, tu- 
do permanece como está, passando-se à 
próxima opção. Quando ordens de “'fo- 
go" são encontradas, a rotina de tiro é 
chamada. Se as ordens forem de ''mar- 
che'”, será chamada a rotina MOVE. 

Após a realização de um movimen- 
to, a rotina verifica as posições adjacen- 
tes à nova localização da unidade em 


busca de tropas inimigas (linhas 1070 a 
1150). Se alguma delas for encontrada, 
será chamada a rotina de combate, que 
apresentaremos no próximo artigo. 





“A VEZ DO COMPUTADOR 


Por enquanto, o computador dará 
ordens ao acaso. Na última parte desta 
série, veremos como transformá-lo em 
um adversário inteligente. A rotina se- 
guinte limita-se a tornar o programa 
possível de ser jogado. 


2140 
2150 
2160 
2170 
THEN 
2180 
2J=A 
2190 


is 


2140) 
2150 
2160 
2170 
THEN 2160 

2180 IF T(E,2)=3 THEN IF FN R(2 
)=1 THEN T(E,2)=EN R(4) 

2190 RETURN 


Le JL] 


2140 REM INIMIGO 
2150 T(E,2) = 3 
2160 T(E,1) = 
2170 IF T(E,l) 
< > 2 THEN 2160 

2180 IF T(E,1) = 3 THEN 
N R(2) = 1 THEN T(E,2) = 
4) 
2190 


2140 
2150 
2160 
2170 
THEN 2160 

2180 IF T(E,1)=3 AND RND(2)=1 T 
HEN T(E,2) =RND(4) 

2190 RETURN 


REM inimigo 

LET T(e,2)=3 

LET T(e,1)=EN r(3) 

IF T(e,1)=1 AND T(e,3)<>2 
SOTO 2160 

IF T(e,1)=3 THEN IF EN rl 

THEN LET T(e,2)=FN r(d4) 
RETURN 


REM INIMIGO 

T(E,2)=3 

T(E,1)=FN R(3) 

IF T(E,1)=1 AND T(E,3)<>2 


FN R(3) 
= | AND T(E,3) 


IF F 
EN R( 


RETURN 


REM INIMIGO 

T(E,2)=3 

T(E,1)=RND(3) 

IF T(E,1)=1 AND T(E,3)<>2 


A rotina gera um número aleatório 
na linha 2160 que decide o tipo de ação 
das unidades do computador na joga- 
da. Se o computador decidir mover al- 
guma unidade, haverá uma tendência ao 
movimento em direção sul (linha 2150). 











UM AMPLIADOR 








O programa deste artigo pode reduzir 
um desenho a proporções diminutas 
ou expandilo em escala astronômica. 
Utilize-o como jogo ou para 

realizar desenhos muito detalhados. 


O programa que acompanha este ar- 
tgo é muito mais divertido do que os 
programas aplicativos habituais. De fa- 
to, ele pode ser usado, seja como jogo, 
seja como aplicação. 

Ele permite desenhar e, em seguida, 
ampliar ou reduzir, até um nível micros- 
cópico, partes de uma figura para ob- 
ter maiores detalhes. É possível, além 
disso, mudar a escala a qualquer mo- 
mento, usando ampliações de milhares 
de vezes ou até mesmo de centenas de 
milhares. Assim, uma enorme quantida- 
de de detalhes que seriam imperceptíveis 
a olho nu numa figura de proporções re- 
duzidas aparece de modo bem claro 
quando ela é submetida a uma amplia- 
ção por meio de um zoom. 

Imagine-se com um poderoso micros- 
cópio, penetrando cada vez mais em di- 
reção à estrutura da imagem. Os deta- 





23 APLICAÇÕES 23 





lhes desta aparecerão à medida que a 
ampliação for aumentando e, inversa- 
mente, desaparecerão quando ela sofrer 
uma redução de certa magnitude. 

Para tornar ainda mais claro esse 
processo, podemos considerar o seguin- 
te exemplo: se começarmos a fotogra- 
far nossa casa e nos afastarmos pouco 
a pouco até uma distância de centenas 
de milhares de quilômetros, os objetos 
— primeiro a casa, depois a rua, o bair- 
ro, a cidade, o país e mesmo a Terra — 
desaparecerão gradualmente das ima- 
gens retidas pela câmara. Tais efeitos 
gráficos podem ser conseguidos com o 
programa deste artigo. 

Uma maneira de usar o programa é 
transformá-lo em um jogo para duas 
pessoas. Uma delas faz um desenho que 
esconde, em algum lugar discreto, um 
“tesouro”, de tamanho diminuto. A ou- 
tra deve procurar o tesouro. Essa tare- 
fa pode se revelar surpreendentemente 
difícil. Imaginemos que o jogador co- 
mece sua busca em um quadrado de 10 
cm de lado. Se este for ampliado 5 000 
vezes, o quadrado original se transfor- 
mará em uma área enorme de cerca de 
250 000 m? — espaço suficiente para 
esconder qualquer coisa. 


"COMO DESENHAR 
AJUSTEA ESCALA 
COMO AMPLIAR E REDUZIR 
DETALHES ESCONDIDOS 
DESENHOS DE PRECISÃO 





O programa se presta ainda a aplica- 
ções em diferentes áreas profissionais. 
Desenhos minuciosos, por exemplo, po- 
dem ser produzidos traçando-se os de- 
talhes em uma escala de grandes propor- 
ções e depois reduzindo-se a figura pa- 


ra um tamanho normal. Desenhos téc- 4 


nicos muito precisos podem ser obtidos 
trabalhando-se em um setor de cada vez. 
O programa também é útil como ele- 
mento de apoio no campo peda- 
gógico. Tomemos como exemplo 
uma lição geográfica. A posição 
das maiores cidades pode ser 
marcada no mapa em uma esca- 
la muito reduzida. No tamanho 
normal, ficariam só como pon- 
tos residuais e apareceriam em 
detalhe apenas quando se usasse 
um zoom no local adequado. 
O programa oferece também 
a possibilidade de se es- | 
crever nomes. Embora 
não permita o uso de le- 
tras normais, é possível 
desenhá-las. Para isso, 


recorra a uma escala (f 
bem grande e depois re- V 
duza as letras para o ta- / 


manho adequado. 











o di Linda LOA 





Ampliando este desenho... 





“COMO EXECUTAR O PROGRAMA 


Ao ser executado, o programa apre- 
sentará a tela em branco e um pequeno 
cursor no centro dela. Você encontrará 
também dois números: o da esquerda in- 
dica a escala da tela atual — 1 para co- 
meçar; o da direita mostra o número de 
linhas desenhadas. Esse número é limi- 
tado a um máximo de seiscentos no iní- 
cio do programa, que é controlado pe- 
lo teclado e muito fácil de usar. 

No MSX, no Spectrum e no TRS- 
Color, o cursor é controlado pelas se- 
tas do teclado. Nos outros micros, as te- 
clas são: 1, para cima; M, para baixo; 
J, para a esquerda e K, para a direita. 
Pressionando-se simultaneamente essas 
teclas — <SYMBOL-SHIFT> no 
Spectrum, ou <CLEAR> no TRS- 
Color — acelera-se o cursor. 

As outras teclas usadas são L, M, €, 
D, E, Se Z. Veja o que elas fazem: L 
desenha uma linha junto ao cursor; M 
move O cursor sem desenhar (nos micros 
da linha Apple, use ; em vez de M para 
mover o cursor). Pressionar € leva o 
cursor ao centro da tela; D cancela li- 
nhas. O número de linhas a ser apaga- 
do será perguntado pelo computador. 
Pressione S para ter acesso a um arqui- 
vo de saída que permita a armazenagem 
de seu desenho em disco ou fita. 

Agora, a parte mais interessante. A 
tecla Z (para zoom) permite a alteração 
da escala. É digitada sempre com um 
número: 2, por exemplo, dobra a escala 
e 0.5 a reduz ao meio. O desenho é refei- 
to na nova escala € centrado no cursor. 
Assim, você deve deixar o cursor sem- 
pre no meio da área que deseja ampliar. 

Usar O como escala não altera o de- 
senho, enquanto | redesenha a figura 
centrada no cursor, reproduzindo-a na 
escala anterior (no Apple, O centra o de- 
senho e 1 retorna a imagem para a es- 
cala 1). Um número negativo produz 
uma imagem em espelho do desenho. As 
mudanças de escala são cumulativas. 
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você poderá olhar através da vidraça... 


Assim, um aumento de 2 seguido de ou- 
tro de 2 leva a ampliação para 4. 
Note que uma escala muito pequena 
no TRS-Color, como 0.0001, é conver- 
tida para 10E-4, mas aparece na tela co- 
mo 104, Esta é uma limitação da rotina 
que desenha números na tela e não afe- 
ta a maneira com que o desenho é feito. 


10 DEF FN a(x)=(x/256)+128 
20 DEF FN b(x)=(x/256)+85 


30 BOADER O: INK 7: PAPER O: 
CLS 

50 LET In=l: LET sc=l: LET 1= 
600 

60 LET £=0: LET x=0: LET vy=D: 
LET zooms=1 

70 DIM a(l+1): DIM b(1): DIM 
c(l): DIM d(1) 

BO LET a(lj=x: LET b(1l)=y 

90 LET c(lj=x: LET d(l)j=y 
100 LET 1S=INKEYS 
110 IF 15="1" AND £ AND 1>In 


THEN SOUND 0.1,0: PLOT FN afla 
(1n)).FN b(b(1n)): DRAW FN af(ec 
(1n))-PEEK 23677,FN b(d(1In))- 


PEEK 23678: LET In=ln+l: LET a 
(In)j=x: LET b(ln)j=y: LET c(l1n) 
=x: LET d(In)j=y: LET £=0 

120 IF i$="c” THEN LET x=0: 
LET vy=0: LET c(lIn)j=x: LET d(ln 
)=Yy 

130 IF i$="m”" THEN LET a(ln)= 
x: LET b(ln)=y 

140 IF 18="1" THEN GOSUB 420 
150 IF 158="0”" THEN GOSUB 600 
160 IF iS$="d”" THEN GOSUB 710 
170 IF 19="2z”" THEN LET lv=o: 
GOSUB B40 


180 LET ap=256: IF CODE INKEYS 
<=41 THEN LET sp=2048 

190 IF INKEY5="8" OR INKEYS="( 
" AND x>-3276B+sp THEN LET £f= 
1: LET x=x+tsp: LET c(In)j=c(In) 
+8p 

200 IF INKEYS="5" OR INKEY5S="t 
”" AND x<32678-sp THEN LET £=- 
1: LET x=x-sp: LET c(lIn)j=c(In) 
-8p. 


210 IF INKEYS="7" OR INKEYS="" 








e verificar que há um livro sobre a mesa! 


" AND v>-22400+ap THEN LET £= 

=]: LET vy=v+sp: LET d(In)js=d(lIn 

|+sp 

220 IF INKEY5="6" OR INKEYS="6 

" AND vy<22400-sp THEN LET É=] 
LET y=y-sp: LET d(In)=d(In)- 

ap 

230 GOSUB 250 

240 GOTO 100 

250 PRINT AT 1,2; INVERSE 1;” 

ESCALA:";: LET aS=STAS sc: IF 

LEN a$>4 THEN LET a$=aS( TO 4 

) 

255 PRINT INVERSE l;aS;AT 1, 

18;" LINHAS:";In-l1 

2B0 LET bx=FN a(la(ln)): LET by 

=FN b(b(1n)): LET ex=EN a(c(ln 

JJ: LET ey=FEN b(d(1ln)) 

290 PLOT bx,by: PLOT ex,ey 

310 PLOT OVER 1;bx,by: PLOT 

OVER l;ex,ey 


320 RETURN 

420 CLS 

430 INPUT “NOME DO ARQUIVO ?”; 
ts 

435 IF £5="" THEN GOTO 430 
440 LET In=l: LET zoom=1l: LET 
Bc=1 

460 LOAD £5 DATA a() 

470 LOAD £S DATA b() 

480 LOAD £5 DATA c() 

485 LOAD fS DATA dl) 

490 LET In=a(601) 

590 BRETUAN 

600 CLS 

610 INPUT "NOME DO ARQUIVO *?”; 
ts 

615 IF £f$="" THEN GOTO 610 
620 LET lv=1: GOSUB 840 

625 LET a(601)=In 

630 SAVE £5 DATA a() 

640 SAVE £[S DATA Db() 

650 SAVE £5 DATA c() 

660 SAVE £fS DATA d() 

700 RETURN 

710 INPUT "NUMERO DE LINHAS A 
APAGAR 7" 'k 

750 IF k=0 OR In-k<=0 THEN 
GOTO 830 

755 LET In=Inck 

760 LET x-a(ln): LET v=b(ln) 
780 CLS 

790 LET c(ln)j=x: LET d(In)=y 
B00 IF In=l THEN GOTO 830 































































ABS (d(1n-1))<22399 THEN LET ê, er 
x=0: LET y=O ts, ti 4: 
B20 LET lv=2: GOSUB 840 

B30 RETURN 

B40 IF 1n=0 THEN RETURN 

850 IF lv=1 THEN LET zoom=1/ 
Bc: CLS : GOTO 9720 

B60 IF lv=2 THEN LET zooms=l: 
GoTo 920 

870 SOUND .1,10: INPUT "DIGITE 


A ESCALA - Z00M ";zoom 
890 IF zoom=0 THEN GOTO 1020 
910 CLS 


920 FOR u=1l TO In-l 

930 LET a(u)j=(a(u)-x)*z00m: 
LET b(u)=(b(u)-v)*zoom 

040 LET clu)=(c(u)-x)*zoom: 
LET d(u)=(d(u)-y)*zoom 

950 IF ABS (a(u))<32/7/68 AND 
ABS (b(u))<22400 AND ABS (cu) 
/<32768 AND ABS (d(u)j)<22400 
THEN PLOT EN a(a(u)),FN btbiu 
1): DRAW EN alc(u))-PEEK 23677 
-EN b(d(u))-PEEK 23678 

960 NEXT u 

970 LET a(u)=(a(u)j-x)*zoom: 
LET b(u)=(b(u)-y)*zoom 

980 LET c(u)j=(c(u)-x)*zoom: 
LET d(u)j=(d(u)-vy)*zoom 

990 LET x=c(In): LET y=d (In) 
1000 IF ABS (a(ln))>32767 OR AB 
S (b(1n))>22399 THEN LET a(ln) 
=x: LET b(In)=y | 
1010 LET sc=scfzoom 
1030 RETURN 


10 PMODE 4,1:COLOR 0, 1:PCLS:SCR 
EEN 1,0:V=247 

20 DIM NUS (10) :FOR 1I=0 TO 10:RE 
AD NUS (I) :NEXT 

30 DEF EN A(X)=(X/256)+128 

ao DEF EN B(X)=(X/256)+96 

50 LN=0:5€=1:L=600 

60 X=0D:Y=0:Z00M=L 

70 DIM BX(L),BY(L) EXCL) ,EY(L) 
BO BX(0)=X:BY(0)=Y 

90 EX(0)=X:EY(0)=Y 

100 IS=INKEYS 

110 IF I5="L” AND F AND L>2LN TH 
EN LINE (ENA (BX(LN)),ENB(BY(LN)) + 
)=(FNA (EX (LN) ), FNB (ET (LN))), PSE 
T:LN=LN+1:BX (LN) =X:BY(LN)=Y:EX( 
LN) =X: EY(LN)=Y:F=0 

120 IF I$="C” THEN X=0:Y=0:EX(L 
N)=X:EY(LN)=Y 





130 IF THEN BX(LN)=K:BY( 
LN) =Y 
140 IF 
150 IF 
160 IF 
170 IF 
40 

180 IF PEEK(339)=191 THEN SP=20 
AB ELSE 5P=256 

190 IF PEEK(343)=V AND X>-32/68 
+5P THEN F=-1]:X=K-SP:EX (LN) =EX( 
LN)-SP 

200 IF PEEK(344)=V AND X<32/68- 
SP THEN F=-1:X=X+5P: EX (LN) =EX (L 
NJ+SP 

210 IF PEEK(341)=V AND Y>-245/6 
+S5P THEN F=-1:Y=Y-SP:EY(LN)=EYÍ 
LN) -SP 

220 IF PEEK(342)=V AND Y<24576- 
SP THEN F=-1:Y=Y+SP:EY(LN)=EYT( 
LN) +5P 

230 GOSUB 250 

240 GOTO 100 

250 S55=S5TR3(5C) 

260 DRAW"BMO, 183" :GOSUB 330 

270 SSS=STRS (LN) : DRAW"BM200,183 
": GOSUB 330 

280 BX=FNA (BX(LN)) :BY=FNB (BY (LN 
|) : EX=FNA (EX (LN)) : EY=FNB (EF (LN) 
) 
290 
300 
310 
320 
330 
s40 
350 


GOSUB 420 
GOSUB 600 
GOSUB 7/10 
THEN LV=D:GOSUB 8 


1$="1" 
I$="0" 
Se” D" 
tg="2"” 


PSET (BX,BY) :PSET (EX,ET) 
FOR D=1 TO 50:NEXT D 

PRESET (BX,BY) : PRESET (EX, EY) 
RETURN 

FOR I=1 TO LEN(SSS) 
DI=ASC(MIDS (SSS,1,1))-48B 

IF DI=-2 THEN DI=10 

360 IF DI<O OR DI210 THEN 380 
370 DRAW"C1I;XNUS (8) ;C0; BL8"+NUS 
(DI)+"BRZ” 

380 NEXT 1 

390 RETURN 

400 DATA R6DBLGUBBAS, BRONDBBRZ, 

















































23 APLICAÇÕES 23 


R6D4L6D4R6BRZBUS, RODANL IDANLGBR 
2BU8, DAR6D4UBBRZ2, NR6DAR6DAIALABES 
410 DATA DBR6U4LGU4BRB, RONDBBRAZ 
| R6ODBL6UBD4R6U4BR2, DAR6D4AUBLEBR 
8, BR3IBDBNRIBRS5SBUS 

420 CLS 

430 PRINT €256,"";:LINE INPUTÍN 
OME DO ARQUIVO A CARREGAR 7";F 
5 
440 
450 
460 
470 
480 
490 


LN=D:2Z00M=1:SC=1 
PCLS:SCREEN 1,0 
OPENCI",4-1,FS 

INPUTE-L,NS 

LN=VAL (NS) 

FOR U=0 TO LN-1 

500 INPUT 4-1,BXS,BYS, EXS, EYS 
510 BX(U)=VAL (BX5) :BY (U)=VAL (BY 
S) : EX(U)=VAL (EXS) : EY(U)=VAL (EYS 
) 

520 IF ABS(BX(U))<32768 AND ABS 
(BY (U))<24576 AND ABS (EX(U))<32 
768 AND ABS (EY (U))<24576 THEN L 
INE (FNA(BX(U)),FNB(BY(U)))-(FN 
A(EX(U)), FNB(EY(U))), PSET 

530 NEXT 

540 INPUT 4-1,BXS,BY5S, EXS, EYS 
550 BX(U)=VAL (BXS) :BY(U)=VAL (BY 
S) : EX (U)=VAL (EXS) :EYIU)=VAL (EYS 
) 
560 X=EX (LN): Y=EY (LN) 
570 CLOSE +t-1 

580 SCREEN 1,0 

3290 RETURN 

600 CLS 

610 PRINT €256,"";:LINE 
NOME DO ARQUIVO A SALVAR 
620 LV=1:GOSUB 840 

630 OPEN "0", &-1,FS 

640 PRINT4-1,STRS (LN) 
650 FOR U=0 TO LN 

660 PRINT 4-1, STR$(BX(U)),STRS( 
BY (U)), STAS (EX (U) ) , STARS (ET (U)) 
679 NEXT 


INPUT * 
?" 1 ES 





Vea 
, F b Ea b da 
| Hi Mis ha 1 i. ) h ú 
o [AR Sera 
de= n , 


A: 
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E RR) Ri 
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ee = a 
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— ds 
Ir ' 
o ar + e 
- a a 
- = srs 
r 
1 = 


ER a Ta T 
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680 CLOSE f-1 

690 SCREEN 1,0 

700 RETURN 

710 CLS 

720 PRINT €256, "QUANTAS LINHAS 

QUER APAGAR ”; 

730 INPUT K 

740 SCREEN 1,0 

750 IF K=0 OR LN-K<O THEN 830 

760 LN=LN-K 

770 XK=BX (LN) :Y=BY (LN) 

780 PCLS 

790 EX(LN) =X: EY (LN) =Y 

800 IF LN=0 THEN 830 

810 IF ABS (EX (LN-1))<32767 AND 

ABS (EY (LN-1))<24576 THEN X=0:Y= 

Q 

820 LV=2:GOSUB 840 

830 SCREEN 1,0:RETURN 

840 IF LN=0 THEN RETURN 

B50 IF LV=1 THEN Z00M=1/SC:PCLS 
'GOTO 920 

860 IF LV=2 THEN Z00M=1:GOTO 92 

é) 

870 CLS 

880 PRINT €256,” DIGITE A ESCAL 

A / Z00M "; 

B90 INPUT ZOOM 

900 IF Z00M=0 THEN 1020 

910 PCLS:SCREEN 1,0 

920 FOR U=0 TO LN-1 

930 BX(U)=(BX(U)-X) *ZO0OM:BY(U)= 
(BY (U)-Y) *Z00OM 

940 EX(U)=(EX(U)-X)*ZO00M:-EY(U)= 
(EY (U) -Y) *ZOOM 

950 IF ABS(BX(U))<32768 AND ABS 
(BY (U))<24576 AND ABS(EX(U))<3 

2/68 AND ABS (EY (U))<24576 THEN 

LINE (FNA (BX (U)),FNB(BY(U)))-(EN 

A (EX (U)), FNB(EY(U))), PSET 

960 NEXT 

970 BX(U)=(BX(U)-X) *ZOMM:BY(U)= 
(BY (U) -Y) *Z00M 


mm PES 
ee 
[ a ço ratos = H 

«a ns! u 


da a a 
a pe 


980 EX(U)=(EX(U)-X)*Z00M: EY (U) = 
(EY (U)-T) *Z00M 

990 X=EX (LN) :Y=EY (LN) 

1000 IF ABS(BX(LN))>232767 OR AB 
S (BY (LN))>224576 THEN BX(LN)=X:B 
Y(LN)=Y 

1010 SC=5C*Z00M 

1020 SCREEN 1,0 

1030 RETURN 


| É 


5  LOMEM: 16384 

1O HGR : HCOLOR= 3: HOME :DS = 
CHARS (13) + CHBR$S (4) 

30 DEF EN A(X) = (X / 256) + 

128 

40 DEF FN B(X) = (X / 256) + 

96 

50 LN = 0:5€C = 1:L = 600:LM = 8 

192 

60 X = 0:Y = 0:Z00M = 1:5P = 25 

6 

70 DIM BX(L),BT(L) EXCL) ETC(L) 


B0 BX(0) = X:BY(0) Y 

90 EX(O) = X:EY(0) Y 

95  GOSUB 240 

100 GET 185 

110 IF IS = "L” AND F AND L > 

LN THEN HPLOT FN A(BX(LN)), EF 

N B(BY(LN)) TO FN A(EX(LN)), EF 

N B(EY(LN)): VTAB 21:LN = LN + 

1:BX(LN) = X:BY(LN) = T:EX(LN) 
X:EY(LN) = T:F = 0:M1 = 0:M2 
: O: GOSUB 320 

120 IF 18 = "CC" THEN X =O:Ya= 
O:EXC(LN) = X:EY(LN) = Y 

130 IF I5 "."” THEN BX(LN) = 

X:BY(LN) = 

140 IF 15 "E” THEN GOSUB 42 

O 


E 


— .— gs 
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seia 
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[7 
aa | 
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150 IF 18 = "8" THEN GOSUB 60 610 INPUT "NOME DO ARQUIVO A 5 BO EX(0)=X:BY(0)=Y 

é ER GRAVADO:";FS 90 GOSUB 1200 

160 IF 15 = "D” THEN GOUSUB 71 620 LV = 1: GOSUB 840 100 IS=INKEYS 

0 630 PRINT DS;"OPEN ";FS 110 IF IS="L” AND F AND L>LN TH 
170 IF IS = "2" THEN LV = 0 G 635 PRINT DS;"WVRITE “;FS EN LINE (FNA(BX(LN)),FNB (BY (LN) 
OSUB B40 640 PRINT LN 1)- (ENA (EX (LN) ), FNB (EY (LN) )),15 
180 IF IS = "J” AND X > - 327 650 FOR U=0O TOLN “LN=LN+L:BX (LN) =X:BY (LN)=Y:EX(L 
68 THEN F = - 1:K = X - SP:EXÍ 660 PRINT BX(U): PRINT BY(U): N)=X:EY (LN)=Y;F=0 

LN) = EX(LN) - SP PRINT EX(U): PRINT EY(U) 120 IF 158="C” THEN X=0:Y7=0:EXIL 
190 IF IS ="K” AND X < 32768 670 NEXT N)=X:EY(LN)=Y 

- SP THEN F = - 1:X = X + SP:E 680 PRINT D$S;"CLOSE” 130 IF 153="M”" THEN BX(LN)=X:BYT( 
X(LN) = EX(LN) + SP 700 RETURN LN)=Y 
.200 IF IS = "II" ANDY > - 245 710 TEXT : HOME 140 IF IS="E” THEN GOSUB 420 

76 + SP THEN F = -1l:Y=T-8 720 INPUT "QUANTAS LINHAS QUER 150 IF 158="8”" THEN GOSUB 600 
P:EY(LN) = EY(LN) - SP APAGAR? ";K 160 IF 18="D”" THEN GOSUB 710 
210 IF 198 ="M” ANDY < 16128 750 IF K = 0 OR LN- K < O THE 170 IF I9="Z" THEN LV=D:GOSUB 8.4 
THEN FE = - 1:77 = 7 + SP:EYT(LN) N B30 al / 

= EY(LN) + SP 760 LN = LN - K 

220 GOSUB 240 7FrO X = BX(LN):Y = BY(LN) 

230 GoTo 100 780  HGR 

240 IF M< > O'THENRPROKEM,M 790 EX(LN) =X: EY(LN) = 

E: POKE MO,MA 800 IF LN = O THEN 830 


245 UTAB 21: HTAB 1: CALL - 9 810 IF ABS (EX(LN - 1)) < 327 
58: PRINT "ESCALA:";SC,"LINHAS: 67 AND ABS (EY(LN - 1)) < 2457 
" 1 LN 6 THEN X = 0:Y = 0 

250 BX = FN A(BX(LN)):BY = FN 820 LV = 2: GOSUB 840 


B(BY(LN)):EX = FN A(EX(LN)):E 830 RETURN 
Y = FN B(EY(LN)) B40 IF LN = O TREN RETURN 


260 LX = INT (EY/ 64):cx = 1 850 IF LV = 1 TREN ZOOM = 1 / 


NT (EY / 8) - (8* INT (EY/ 6 SC: GOTo 910 
4)):TKX = EX - (8 * INT (EY/8 B60 IF LV = 2 THEN Z00M = 1: G 


)) OTO 910 

270 M = LM + (LX * 40) + (CX * 870 VTAB 23 

128) + (TX * 1024) B80 INPUT "ESCALA DO ZOOM ? "; 
280 M = M + ( INT (EX / 7)) Z00M 


290 LX = INT (BY / 64):cx = 1 900 IF Z00M = 1 THEN LV =): 6 


NT (BY / 8) - (8 * INT (BY / 6 OTO B50 | 
4)):TX = BY - (B * INT (BY /8B 905 IF Z00M = O THEN Z00M = 1 


)) 910 HGR 
300 MO = LM + (LX * 40) + (cx * 920 FORU=OTOLNO- 1 

128) + (TX * 1024) 930 BXx (U) = (BX(U) - X) * Z00M: 
310 MO = MO + ( INT (BX / 7)) BY(U) = (BY(U) - Y) * ZOOM 

320 IF M< >M1THENMI=M:M 940 EX(U)=CEX(U)-GXK)* Z00M: 
E = PEEK (M) EY(U) = (EY(U) - Y) * Z00M 


330 IF MO < > MZ THEN M2 = MO 950 IF ABS (BX(U)) < 32768 AN 
“MA = PEEK (MO) D ABS (BY(U)) < 24576 AND ABS 


340 HPLOT EX,EY: HPLOT BX,BY (EX(U)) < 32768 AND ABS (EY(U pi 
350 RETURN )J) < 24576 THEN HPLOT FN A(BX & 
420 TEXT : HOME (U)), FN B(BY(U)) TO FN A(EXC(U 

430 INPUT "NOME DO ARQUIVO A S ))+ FN B(EY(U)) 

ER LIDO:";FS 960 NEXT 

440 LN = 0:Z00M = L:SC = 1 970 BX(U) = (BX(U) - X) * Z00M: 

450 HGR BY(U) = (BY(U) - Y) * Z00M 

460 PRINT DS;"OPEN ";ES 980 EX(U) = (EX(U) - X) * Z00M: 

470 PRINT DS;"READ ";FS EY(U) = (EY(U) - T) * Z00M 

480 INPUT LN 990 X = EX(LN):Y = EY(LN) 

490 FORU=OTOLNÕÃ-I 1000 IF ABS (BX(LN)) > 32767 

500 INPUT BX(U),BY(U),EX(U),Ey OR ABS (BY(LN)) > 24576 THEN B 

(U) X(LN) = X:BY(LN) = Y 


520 IF ABS (BX(U)) < 32768 AN 1010 SC = SC * Z00M 

D ABS (BY(U)) < 24576 AND ABS 1030 RETURN 
(EX(U)) < 32768 AND ABS (EY(U . 

)) < 24576 THEN HPLOT FN A(BX py 

(U)). EN B(BY(U)) TO FN A(EX(U 








)), EN B(EY(U)) 5 MAXFILES=2:CLEAR 2000 q 
530 NEXT 10 OPEN "GRP:" FOR OUTPUT AS 41 ns 
540 INPUT BX(U),BY(U),EX(U),EY 20 DEFFNA(X)=(X/256)+128 a 4 
(U) 30 DEFFNB(X)=(X/256)+96 

560 X = EX(LN):Y = EY(LN) 40 LN=0:8C=1:L=600:SP=256 > 
570 PRINT DS;"CLOSE” 50 X=0:Y=0:200M=1 SURDO aê 


590 RETURN 60 DIM BX(L),BY(L) ,EX(L) EY(L) 
600 TEXT : HOME 70 BX(0)=K:BYT(0)=Y pes 





H 
) 


180 IF I$=CHR$S(29) AND X > -327 
68! + SP THEN F=-1:X=X-SP:EX(LN 
)=EX (LN) -SP 

190 IF IS$=CHRS(2B) AND X < 3276 
8! -SP THEN F=-1:X=X+SP: EX (LN)= 
EX (LN) +SP 

200 IF IS=CHRS(30) AND Y>- 24576 
+SP THEN F=-1:Y=Y-SP:EY(LN)=EY( 
LN) -SP 
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210 IF IS=CHAS(31) AND Y<24576- 

SP THEN F=-1:Y=Y+S8P:EY (LN) =EY(L 

N)+SP 

220 GOSUB 250 

230 GOTO 100 

250 BX=FNA (BX(LN)) :BY=FNB (BY(LN 

1) :EX=FNA (EX (LN) ) : EY=FNB (EY (LN) 

) 

260 PUT SPARITE 1, (BX-4,BY-4),15 

Ep 

270 PUT SPRITE 2, (EX-4,EY-4),15 

Ra E 

2B0O LINE (10,180)-(255,191),4,B 

F 

290 PRESET (10,180):PRINT+1,"ES 

C:":8C;* LIN:";LN 

300 RETURN 

420 SCREENO 

430 INPUT"NOME DE ARQUIVO A SER 
CARREGADO :";FS 

440 LN=0:Z00M=1:SC=1:GOSUB 1200 

450 ES="CAS:"+FS 

460 OPEN FS FOR INPUT AS 42 

470 INPUT 42,LN 

490 FOR U=0 TO LN-1 

500 INPUT +2,BX,BY,EX,EY 

510 BX(U) =BX:BY (U) =BY: EX (U) =EX: 

EY (U)=EY 

520 IF ABS(BX(U))<32768! AND AB 

S (BY (U])<24576 AND ABS (EX(U))<3 
2768! AND ABS (EY (U))<24576 THEN 
LINE (FNA (BX (U)) , FNB(BY(U)))-(F 

NA (EX (U)), FENB(EY (U))),15 

530 NEXT 

540 INPUT42, BX,BY,EX,EY 

550 BX(U)=BX:BY(U) =BY:EX(U)J=EX: 
EY (UJ=EY 

560 X=EX (LN) :Y=EY (LN) 

570 CLOSE +42 

590 RETURN 

600 SCREENO 

610 INPUT"NOME DE ARQUIVO PARA 

GRAVAR:";FS:F5S="CAS:"+FS 

620 LV=1:GOSUB 1200:GOSUB 840 
630 OPEN FS FOR OUTPUT AS +2 
640 PRINT+2,LN 

650 FOR U=0 TO LN 

660 PRINT42,BX(U),BY(U) EXU) ,E 
Y(U) 

670 NEXT 

6B0O CLOSE 42 

700 RETUBN 

710 SCREENO 

720 INPUT"QUER APAGAR QUANTAS L 
INHAS" ;K 

730 GOSUB 1200 

750 IF K=0 OR LN-K<O THEN B20 
160 LN=LN-K 

770 X=BX(LN) :Y=BY(LN' 

790 EX (LN)=X:EY (LN) =Y 

800 IF LN=0 THEN 830 

410 IF ABS (EX(LN-1))<32767 AND 

ABS (EY (LN-1))<24576 THEN X=0:Y= 

É) 

820 LV=2:GOSUB B40 

B30 RETURN 

B40 IF LN=0 THEN RETUAN 

B50 IF LV=1 THEN Z00M=1/SC:GOTO 
920 

860 IF LV=2 THEN Z00M=1:GOTO 92 

0 

870 SCREENO 


IDÉIAS PARA O JOGO 
Quando você usar o programa apre- 
sentado neste artigo como um jogo, a 
tarefa mais difícil será fazer com que 
o “tesouro” oculto na figura não apa- 
reça como uma mancha muito óbvia 

para quem o está procurando. 
Existem, para isso, vários truques. 
Um deles consiste em executar um de- 
senho bem elaborado e ocultar o tesou- 


| ro em um dos detalhes. A dificuldade 


será ainda maior se você desenhar os 
detalhes em diferentes graus de am- 
pliação. Isso obrigará seu oponente a 


| também utilizar vários graus de amplia- 
| ção na procura do tesouro. 


Outro truque é a inclusão, no dese- 
nho, de pequenos detalhes parecidos 
com o tesouro, quando se utilizam as 
reduções. Seu oponente terá que inves- 
tigar um a um, perdendo precioso tem- 
po com isso. 

A diversão será maior se você ado- 


tar alguma forma de contagem de pon- 
| tos. Verifique, por exemplo, o número | 


de vezes que o jogador muda a escala 
de aumento, ou o número de movimen- 


| tações que ele precisa fazer até achar 


o tesouro. Outra alternativa é medir o 
tempo transcorrido entre o início e o fim 





| da busca. 


B80 INPUT "ESCALA DO Z00M:”;2Z00 
M 

B90 GOSUB 1200 

900 IF Z00M=0 THEN 1030 

920 FOR U=0 TO LN-1 

930 BX(U)=(BX(U)-X) *200M: BY (U)= 
(BY (U)-Y) *Z00M 

940 EX(U)= (EX CU) -X) *Z00M: ET (U)= 
(EY (U)-T) *200M 

950 IF ABS(BX(U))<32768! AND AB 
S (BY (U))<24576 AND ABS (EX(U))<3 
2768! AND ABS (EY(U))<24576 THEN 
LINE (FNA (BX (U)), FNB(BY (U)))-(F 
NA (EX (U)), FNB (EY (U))),15 

960 NEXT 

970 BX(U)=(BX(U)-X) *Z00M: BY (U)= 
(BY (U)-7) *Z00M 

9B0 EX(U)=(EX(U)-X) *Z00M: ET (U) = 
(EY (U)-Y) *Z00M 

990 X=EX (LN) :Y=EY (LN) 

1000 IF ABS(BX(LN))2>232767 OR AB 
S (BY (LN))>24576 THEN BX(LN)=X:B 

T (LN)=Y 

1010 SC=5C*Z00M 

1030 RETURN 

1100 DATA 0,0,16,56,16,0,0,0 
1200 COLOR 15,4,4:SCREEN 2,0:RE 
STORE 

1210 FOR I=1l TO B:READ 5:55=55+ 
CHARS (8) :NEXT:SPRITES(1)=33 

1220 RETURN 














“PER RIPÉCIAS NO NO 
REINO DE NETUNO 


Willie está agora num morro a beira- 
mar. Mas não tem tempo de admirar a 
paisagem: se ele perder a calma quando 
as pedras estiverem rolando morro abai- 
xo, ou se tremer com o barulho das co- 
bras, descobrirá tardiamente que está 
em vias de afogar-se. Para criar o cená- 
rio adequado, devemos providenciar vá- 
rios baldes de água do mar. 


—— 
= 1 


A rotina seguinte dá início ao avan- 
ço da maré; logo, é melhor que Willie 
não perca tempo no caminho e retorne 
rapidamente a seu gostoso piquenique. 

10 REM org 58882 

20 REM sea ld bc,57312 
30 REM ld a, (57353) 
bit 2,a 

jr z,spt 

ld bc,57320 
spt ld h1, (57354) 
ld a,15 

ld d,32 

spu push de 
push bc 
REM call print 

inc hl 
pop bc 
REM pop de 
REM dec d 
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170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM jr nz,spu 
REM ld a, (57353) 
REM dec a 

REM 1d (57353),a 
REM jyr nz.srt 
REM ld a,10 

REM 1d (57353),a 
REM ld h1, (57354) 
REM ld de,32 

REM sbc hl,de 
REM 1d (57354),hl 
REM srt ret 

290 REM orq 58217 

300 REM print * 


Embora pareça que temos na tela um 
trecho do mar, há na verdade apenas 
dois caracteres. O primeiro ocupa as oi- 
to posições do endereço 57312 em dian- 
te, e o segundo as oito posições a partir 
do endereço 57320. Você pode achar que 
isso não é água suficiente nem mesmo 
para molhar os pés de nosso herói. Mas, 
quando esses dois caracteres forem im- 
pressos consecutivamente em linhas al- 
ternadas, você construirá rapidamente 
um oceano. 

Como o mar será impresso na tela na 
proporção de um caractere por vez, re- 
correremosárotina print de novo. Assim, 
os parâmetros necessários devem ser 
carregados nos registros corretos. Como 
de costume, o par BC carrega o apon- 
tador do primeiro byte de dados. O acu- 
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Depois de viver mil aventuras em terra 
firme, Willie — o infortunado 

herói do jogo Avalanche — tem que se 
defrontar com os perigos de um mar 
agitado. Veja como ele se sai dessa. 


mulador A carrega o código da cor e o 
par HL contém a posição da tela onde 
o dado será impresso. Depois desse lem- 
brete, carregamos o par de registros BC 
com o endereço do byte inicial que for- 
ma o primeiro caractere de mar. 

A variável no endereço 57353 é cha- 
mada variável de atraso do mar; é ela 
que controla o movimento das águas. O 
bit 2 é usado como uma baliza para in- 
formar ao processador qual dos dois ca- 
racteres de mar deverá ser impresso na 
última linha. 

O conteúdo do atraso do mar é colo- 
cado no acumulador e a instrução bit 2,a 
analisa esse bit em particular. Se O seu 
valor for 0, a instrução jr z que vem em 
seguida faz O processador saltar para a 
próxima instrução. Mas, se o valor do 
bit 2 é 1, o salto não ocorre e o par BC 
é carregado com o endereço do padrão 
inicial do segundo caractere de mar. 


MAR AGITADO | 


O par de registros HL é carregado 
com o conteúdo das posições de memó- 
ria 57354 e 57355. Esses endereços con- 
têm a posição do mar que está sendo im- 
pressa no momento e que foi inicializa- 
da pela rotina da parte sete de Avalan- 
che com a posição do canto inferior es- 
querdo da tela. 

O acumulador A é carregado com o 
número 15 para dar ao mar a tonalida- 
de azul adequada. O registro D, por sua 
vez, é carregado com o número 32; ele 
será usado como contador para somar 
32 colunas através da tela. 

O contador em D deve ser preserva- 
do intacto. Se o processador utilizar o 
registro D na rotina print, ele se perde- 
rá; assim, o par DE é guardado na pi- 
lha. Os dados para o caractere de mar 
serão usados outras vezes, já que cada 
linha de mar é formada pelo mesmo ca- 
ractere impresso 32 vezes. Dessa forma, 
o par BC é guardado na pilha também. 
A rotina print é chamada e os oito bytes 
do caractere de mar são impressos no lu- 
gar correto da tela. 

O par HL é então incrementado, mo- 
vendo o apontador de tela para a pró- 
xima posição ao longo da linha. Ao 
mesmo tempo, o apontador de dados é 
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levado de volta para o início dos padrões 
do caractere (ele tinha sido incrementa- 
do durante a rotina print), sendo recu- 
perado da pilha. O contador de colunas 
é também recuperado da pilha e decre- 
mentado. Se ele não foi reduzido a ze- 
ro, a instrução jr nz retornará ao início 
do laço e o processador imprimirá o ca- 
ractere de mar na posição seguinte da te- 
la ao longo dessa linha. 

Quando o contador em D tiver sido 
reduzido a zero, o processador saltará 
para fora do laço e prosseguirá com a 
próxima instrução. 


as TEMPO E MARÉ 


O atraso do mar é carregado sobre o 
acumulador, decrementado e armazena- 
do de volta em 57353. Se ele não tiver 
sido reduzido a 0, a instrução jr nz fa- 
rá o processador saltar as instruções res- 
tantes até o final da rotina para a qual 
ele retornará. Se ele tiver sido reduzido 
a zero, o atraso do mar será ajustado pa- 
ra 10. 

O apontador de posição do mar é car- 
regado em HL; 32 é carregado em DE 
e subtraído de HL; o resultado é arma- 
zenado de volta no apontador de loca- 
lização do mar em 57354. Assim, na 
próxima vez que a rotina for chamada, 
o mar terá subido uma linha. 


mm RR 


O programa a seguir inicia a expan- 
são da maré. 


10 ORG 19678 

20 SEA LDU 418206 
30 LDA 18246 

40 BITA 42 

50 BEQ SPT 


60 LDU 418222 

70 SPT LDX 18247 
BO LDA 416 

90 SPTI PSHS A,U 
100 JER CHARPR 
110 PULS U,A 

120 DECA 

130 BNE SPTI 

140 DEC 18246 
150 BNE SRT 

160 LDA 410 

170 STA 18246 
180 LDX 18247 





J O AVANÇO DA MARÉ 
E | IMPRESSÃO DOS CARACTERES 
| — DOMAR 
fr TONALIDADE DO MAR 


=" VARIÁVEL DE ATRASO 


LEAX -256,X 


190 

200 STX 18247 

210 SBT RTS 

220 CHARPR EQU 19402 


Para testar esse programa, você pre- 
cisa carregá-lo no resto de Avalanche e 
executar a seguinte rotina: 


5 POKE .H467F,& HáC:POKE sH4CB0, 
&HF3 

LO EXEC 19426 
20 FOR G=1 TO 
30 EXEC 19678 
40 FOR H=1 TO 
50 GOTO 50 


160 


100:NEXT H,G 


Quando esta rotina estiver funcio- 
nando, a maré subirá até que a tela es- 
teja completamente cheia de água. Isso 
nunca aconteceria durante O jogo, pois 
Willie teria se afogado antes e o jogo 
voltaria ao início. 
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Ea REPETIÇÃO 
— DOS CARACTERES 

EM LINHAS ALTERNADAS 

He “A ROTINA CHARPR 
E MAR BRAVIO 





PEQUENAS GOTAS DE ÁGUA 


Embora aparentemente tenhamos um 
trecho do mar representado na tela, exis- 
tem na verdade apenas dois caracteres 
importantes na tabela de dados. O pri- 
meiro desses caracteres ocupa os oito en- 
dereços a partir de 18206 e o segundo 
ocupa os oito a partir de 18222. Quan- 
do esses dois caracteres forem impres- 
sos repetidamente em linhas alternadas, 
você terá um oceano. 

Como o mar será impresso na tela do 
microcomputador, segundo um ritmo de 
um caractere de cada vez, a rotina 
CHARPR será usada de novo. Logo, 
seus parâmetros têm de ser carregados 
nos registros corretos. Como sempre, O 


registro U carrega o apontador do pri- 


meiro byte de dados; então, a própria 
tabela de dados atua como pilha do 
usuário. O registro X, por sua vez, car- 
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ma instrução através do rótulo SPT. 
Mas, se o valor for 1, o salto não ocor- 
rerá e U será carregado com o endereço 
do primeiro byte que forma o segundo 
caractere de mar. 


PRIMEIRO CARACTERE 


O registro X é carregado com o 
conteúdo da posição de memó- 
em ria 18247. Esse endereço car- 

















| VEJAOMAR 


A rotina CHARPR incrementa auto- 
maticamente o registro X, de modo que 
ele esteja pronto para imprimir o pró- 
ximo caractere ao longo da linha. O 
apontador de dados é movido de volta 
ao início dos bytes que formam o carac- 
tere de mar por meio de sua recupera- 
ção da pilha; esse apontador foi incre- 
mentado durante a rotina CHARPR. O 
contador também é recuperado da pilha. 












SS AS | rega a posição em que 
ão gaga Toque o mar está sendo 
impresso no 


O contador é então decrementado e, 
se ainda não for zero, a instrução BNE 














rega a posição da tela onde o dado será 
impresso. U é então carregado com o 
endereço do primeiro byte que forma o 
primeiro caractere de mar. 

A variável no endereço 18246 é cha- 
mada variável de atraso do mar e con- 
trola o movimento da maré. O bit 2 des- 
sa variável é usado como uma baliza pa- 
ra informar ao processador qual carac- 
tere de mar será usado na linha que es- 
tá sendo impressa. 

O conteúdo do atraso do mar é car- 
regado no acumulador e a instrução BlI- 
TA &2 analisa esse bit em particular. Se 
o valor do bit não for 1, a instrução 
BEQ fará o processador pular a próxi- 


momento 
em que 
foi inicia- 
lizada pe- 
la rotina da parte sete de 
Avalanche no canto inferior esquerdo 
da tela. O acumulador A é carregado 
com 16, e será usado como contador pa- 
ra fazer com que dezesseis caracteres de 
mar sejam impressos. 

Esse contador precisa ser preservado 
intacto enquanto o processador execu- 
ta a rotina CHARPR; portanto, guar- 
damos A na pilha do usuário. Os dados 
para o caractere de mar serão usados vá- 
rias vezes, porque cada linha do mar é 
feita do mesmo caractere — assim, O re- 
gistro U também é guardado na pilha, 
A rotina CHARPR é chamada e os oi- 
to bytes do caractere de mar são impres- 
sos no lugar correto da tela. 


saltará para o laço onde o processador 
imprime o caractere de mar na próxima 
posição ao longo da linha atual. 

Quando o contador em A já for ze- 
ro, O processador sairá do laço e execu- 
tará a instrução seguinte. 


O próximo passo consiste em decre- 
mentar o atraso do mar. Se esse atraso 
não tiver sido reduzido a zero, a instru- 
ção BNE fará o processador saltar as 
próximas instruções até o final da roti- 
na, para onde ele retornará. 

Se ele tiver sido reduzido a zero, O 
atraso do mar será reajustado com va- 
lor 10. O apontador de posição será en- 
tão carregado no registro X e 256 sub- 
traído dele. O resultado é armazenado 
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de volta nos endereços que guardam es- 
se apontador, ou seja, 18247. Assim, da 
próxima vez que essa rotina for chama- 
da, o mar subirá uma linha. 


o ERREI E, 


A rotina que vem a seguir inicia a ex- 
pansão da maré; por isso, é melhor Wil- 
lie andar o mais rápido possível e recu- 
perar o seu lanche. 


10 orq 54218 

20 sea ld b,72 

30 ld a, (-5213) 

40 bit 2,a 

50 Jr z,8pt 

60 ld b,76 

70 spt ld h1, (62407) 
BO ld de, (-5212) 

90 add hl,de 


100 ld a,b 

110 ld bc,32 

120 call B6 

130 ld a, (-5213) 
140 dec a 

150 ld (-5213),a 
160 jr nz,srt 

170 ld a,l0 

180 ld (-5213),a 
190 ld h1l,(-5212) 
200 ld de,32 

210 abc hl,de 
220 ld (-5212),hl 
230 art ret 

240 end 


Embora tenhamos a impressão de 
que há um trecho do mar na nossa tela, 


na verdade só existem dois padrões di- 
ferentes. O primeiro tem o código 72 na 
tabela de padrões e o segundo é o pa- 
drão de código 76. À primeira vista, a 
quantidade de água não é suficiente nem 
mesmo para molhar os pés de Willie. 
Mas, quando esses dois padrões forem 
impressos consecutivamente em linhas 
alternadas, em pouco tempo teremos, na 
tela, um oceano. 

Como o mesmo padrão de mar será 
impresso 32 vezes na mesma linha, ocu- 
pando-a completamente, usaremos a ro- 
tina 86 da ROM, Essa rotina escreve um 
número na VRAM a partir de um ende- 
reço e um certo número de vezes. 

Neste programa, a rotina 86 da ROM 
será usada para colocar o código de um 
padrão de mar várias vezes na tabela de 
nomes da VRAM,; isso equivale a impri- 
mir o mesmo caractere diversas vezes em 
sequência, já que a tela é um reflexo da 
tabela de nomes. 

Os parâmetros necessários devem ser 
carregados nos registros corretos, antes 
de se chamar a rotina 86. É preciso tam- 


















O do HORA 


bém que o acumulador A contenha o có- 
digo do padrão que vai ser impresso. O 
par HL, por sua vez, contém a posição 
da tabela de nomes — ou seja, da tela, 
onde o padrão começará a ser impresso 
e o par de registros BC carrega o núme- 
ro de vezes que ele será impresso. Feito 
o lembrete, continuemos a examinar o 
programa. O código do padrão do pri- 
meiro caractere de mar é colocado no re- 
gistro B. 

A variável no endereço — 5213 é cha- 
mada variável de atraso do mar; é ela 
que controla a subida da maré. O bit 2 
dessa variável é usado como baliza pa- 
ra indicar ao processador qual dos dois 
caracteres de mar deve ser impresso na 
linha atual. 

O conteúdo do atraso do mar é colo- 
cado no acumulador e a instrução bit 
2,a analisa esse bit isoladamente. Se o 
seu valor for 0, a instrução jr z que vem 
em seguida fará o processador saltar a 
próxima instrução. Mas, se o valor do 
bit 2 for 1, o salto não será realizado e 
o registro B será carregado com o códi- 
go 76 do padrão do segundo caractere 
de mar. 


MAR AGITADO 


O par HL é carregado com o endere- 
ço inicial da tabela de nomes da VRAM, 





























que está armazenado nas posições 62407 
e 62408. O par DE, por sua vez, é car- 
regado com o valor contido nas posições 
— 5212 e — 5211; esse número corres- 
ponde à posição na tela do começo da 
linha que está sendo impressa atualmen- 
te e foi inicializado pela rotina da parte 
sete de Avalanche para indicar o canto 
inferior esquerdo da tela. Os conteúdos 
de HL e DE são somados em HL, que 
passa a abrigar o endereço correspon- 
dente na tabela de nomes. 

O acumulador A recebe então o có- 
digo do padrão que até agora estava em 
B. Ao mesmo tempo, o par BC é carre- 
gado com o número de vezes em que o 
padrão deve ser impresso na tela — ou 
seja, 32, que corresponde ao número de 
colunas na linha. A seguir, é chamada 
a rotina 86 da ROM; nesse momento, 
a linha de mar já estará impressa. 


TEMPO DE SUBIDA 





O atraso do mar é carregado no acu- 
mulador, decrementado e armazenado 
de volta no endereço — 5213. Se o seu 
valor ainda não tiver sido reduzido a ze- 
ro, a instrução jr nz fará com que o pro- 
cessador salte as instruções restantes até 
o final da rotina, para a qual ele re- 
tornará. 
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Por outro lado, se ele tiver sido re- 
duzido a zero, o atraso do mar será ajus- 
tado para 10. 

O apontador de posição do mar é car- 
regado em HL e o número 32 é subtrai- 
do dele por meio do par DE; o resulta- 
do é armazenado de volta no apontador 
de posição em — 5212 e — 5211. Assim, 
na próxima vez que a rotina for chama 
da, o mar terá subido uma linha. 

Como você já deve ter notado, 
o atraso do mar controla o tem- 
po que a rotina passará impri- 
mindo a primeira linha; es- 
gotado esse tempo, a roti- 
na é ajustada para subir uma 
linha a cada dez chamadas. 

Depois de jogar algumas vezes, 
talvez você queira reforçar a dose de 
emoção de Avalanche. 

Torne a aventura mais dificil alter- 
nando a variável de atraso. 
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LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





“numlivros 


NOVOS LANÇAMENTOS, 
NOVOS SUCESSOS. 


A FRATERNIDADE 


DA PEDRA 


- David Morrell | 
- Umpgrupo secreto, sob 
direção de um padre 

"armado, passa a agir 

' contra o terrorismo. 


Mas, será que violência 


“se combate com mais 


violência? Eis o dilema 
de Drew, agente da Lei 
envolvido com fatos e 
figuras do mundo real, 

| reendente 
do criador de bo. 


nu 
pena mu N 


“AVENTUREIROS 


E MILIONÁRIOS 
Clark Howard 


No romance do Texas, 

a saga da descoberta de 
um poço de petróleo e 

o drama de um casal que 
herda um lote de terra 
aparentemente sem valor 
e enfrenta com coragem 
os poderosos do lugar, 
até vencer. Uma vitória 
antes de tudo moral, 
numa história forte e 
envolvente, com realistas 
cenas de amor. 


Não perca também: A MISSÃO, de Robert Bolt, o livro do filme. 


“EDITORA BEST SELLER 


NexandraDeneh 


De 
ie A 
Da = y Rs too 
DO det ans 
















gas 






CAÇADA SEM FIM 
Bryan Forbes 


Uma brilhante históriade 
espionagem envolvendo 
a KGB. Por que matar 
uma ex-espiã que já tinha 
sido desmascarada e | 
torturada tempos atrás? 
Um agente inglês, seu 
antigo amante, enfrenta 


um desafio: descobrir 
“porque ela foi morta... 


e por que agora! 








“Senão for o primeiro, 





| este vai ser o último 
* edefinitivo guia para 
o prazer que o leitor 
poderá seguir: um livro 
PODER que derruba mitos, faz 
Elia Eai sugestões provocantes e 
A | propõe técnicas ousadas 
Um líder sindical com para se chegar ao 
a volúpia do poder, supersexo, uma relação 
a luta pelos direitos intensa e especial entre 
dos trabalhadores, os casais, que não 
nos Estados Unidos, 


“exclui o romantismo. 


e sua manipulação 

por corruptos 

e oportunistas; o jogo. 
das ambições políticas. 
Admiravelmente escrito, 
um romance atualíssimo. 





